BBS in a Box 3/BBS in a box - Trilogy III.iso/Files/Tele/C/Calypso Folder/Connection Files/Simplest Calypso CCL

Text File | 1992-09-29 | 903 b | 31 lines | [TEXT/GEOL]

! Simplest CCL for use with Calypso.
! Just sets up and opens a connection with a CTBTool.  Works best
! with the Apple Modem Tool, MacPad or other tool which actually makes
! a connection (e.g. not Serial Tool).
-LABEL 0
-First, tell the CCL we're using a tool
CTBTool 56 55 0 "~TOOL"
CTBOpen 2          ! Open the connection, if successful, jump to 2
!
Alert 90 Attempt to open a connection using the tool ~TOOL has failed.  Press OK or Cancel to Cancel
Jump 90  ! FAILURE TO OPEN CONNECTION
!
! Success!
-LABEL 2
! The modem connection has been established.
! Put any host specific connection commands here (e.g. user name, password...).
! See other CCLs for examples of how to send data (using XMIT), set up incoming
! strings to look for (using MatchStr), and wait for those strings (using Wait)
Exit 0
!
!  Cancel to here:
-LABEL 90
Exit -1
!
!
! DISCONNECT CODE
*-LABEL 0
*CTBClose
*Exit 0
###